home *** CD-ROM | disk | FTP | other *** search
/ Publisher Platinum / Publisher Platinum.iso / clipart / utils / show38a / sound1.shw < prev    next >
Encoding:
Text File  |  1993-04-30  |  536 b   |  12 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  SOUND1.SHW                                            ;
  3. ; Purpose....:  Sub program to PROMOTE1.SHW (tight loop for sound).   ;
  4. ;*********************************************************************;
  5. MARK 1          ; Set a mark to jump to
  6. MUSIC SOUND G 4 70
  7. MUSIC SOUND D 4 70
  8. VARIABLE INCREASE soundloop 1
  9. IF soundloop EQ 8 DO JUMPMARK 2
  10. JUMPMARK 1      ; If we've reached here, jump to mark 1
  11. MARK 2          ; Set a mark to jump to
  12.